﻿Imports OpenArchive.Document

Namespace OpenArchive
    Namespace Collections
        Public Class InstanceComponentPair(Of TInstance, TComponent As Components.IComponent)
            Private m_instance As TInstance
            Private m_component As Components.IComponent
            Public Sub New(ByVal Instance As TInstance, ByVal Component As Components.IComponent)
                m_instance = Instance
                m_component = Component
            End Sub
            Public ReadOnly Property Instance() As TInstance
                Get
                    Return m_instance
                End Get
            End Property

            Public ReadOnly Property Component() As Components.IComponent
                Get
                    Return m_component
                End Get
            End Property
            Public Overrides Function ToString() As String
                Return "["c & Instance.ToString & ", " & m_component.ToString & "]"c
            End Function
        End Class
    End Namespace
End Namespace
